home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / game / map_quiz / b_menu1.bas < prev    next >
BASIC Source File  |  1993-11-30  |  4KB  |  107 lines
  1. 1000 ' ******************************************************************
  2. 1010 ' *                                                                *
  3. 1020 ' *     :::::::::::: B_MENU1.BAS ::::::::::::::                    *
  4. 1030 ' *                                Programmed By T.K.Mosaku        *
  5. 1040 ' *                                ~~~~~~~~~~~~~~~~~~~~~~~~        *
  6. 1050 ' ******************************************************************
  7. 1060 '
  8. 1070 SCREEN@ 0:CLS
  9. 1080 '
  10. 1090 '** オープニングタイトル表示 **
  11. 1100 '
  12. 1110 PI=3.14159!:C=5
  13. 1120 FOR R=20 TO 35 STEP 15
  14. 1130   FOR I=0 TO 2*PI STEP .1!
  15. 1140     X=235+(75*COS(I)+40*SIN(I))
  16. 1150     Y=320-(75*SIN(I)-80*COS(I))
  17. 1160     CIRCLE (Y,X),R,C,,,,N
  18. 1170   NEXT
  19. 1180   WAIT 50:C=6
  20. 1190 NEXT
  21. 1200 LOCATE 33,12:PRINT " By T.K.MOSAKU"
  22. 1210 LINE (257,223)-(367,223),PSET,1:LINE (273,246)-(385,246),PSET,1
  23. 1220 LOCATE 20,21:COLOR 4:PRINT"Programmed by T.K.Mosaku Hhorai Hukushima"
  24. 1230 WAIT 150:CLS
  25. 1240 '
  26. 1250 '** タイトル表示 **
  27. 1260 '
  28. 1270 FOR O=1 TO 45 
  29. 1280   XO=XO+2
  30. 1290   LINE (57+XO,52+XO)-(581-XO,384-XO),PSET,5,B
  31. 1300 NEXT O
  32. 1310 LINE (151,146)-(487,290),PSET,7,B
  33. 1320 '
  34. 1330 LOCATE 20,21:COLOR 7:PRINT"Programmed by T.K.Mosaku Hhorai Hukushima"
  35. 1340 LOCATE 24,10:COLOR 7:PRINT"  できたら偉い! 絶対出来ない!  ":WAIT 100
  36. 1350 LOCATE 24,10:COLOR 7:PRINT" 国名･県名覚えてるかい? クイズ!":WAIT 100
  37. 1360 LOCATE 24,10:COLOR 7:PRINT"      さあて!  始めよか!       ":WAIT 100
  38. 1370 '
  39. 1380 CLS:X1=25:Y1=86:X2=625:Y2=412
  40. 1390 FOR T=0 TO 140 STEP 2 
  41. 1400   LINE (X1+T,Y1+T)-(X2-T,Y2-T),PSET,5,B
  42. 1410 NEXT
  43. 1420 LOCATE 24,13:COLOR 7:PRINT" 準備中です｡しばらくお待ち下さい｡"
  44. 1425 GOSUB *SETTEI
  45. 1430 '
  46. 1440 LOAD@ "F_ALLMAP.TIF",(25, 85):CLS 4
  47. 1450 '
  48. 1460 FOR T=0 TO 14 STEP 2 
  49. 1470   LINE (26+T*3,13+T)-(626-T*3,80-T),PSET,5,B
  50. 1480 NEXT
  51. 1490 LINE (75,30)-(578,63),PSET,6,BF
  52. 1500 LOCATE 12,2:COLOR 1
  53. 1510 PRINT"★★★ メニュー ★★★  希望するものを左クリックして下さい｡"
  54. 1520 FOR T=0 TO 14 STEP 2 
  55. 1530   LINE (26+T*3,417+T)-(626-T*3,473-T),PSET,5,B
  56. 1540 NEXT
  57. 1550 LINE (75,434)-(578,456),PSET,6,BF
  58. 1560 LOCATE 24,23:COLOR 1:PRINT"   By T.K.MOSAKU HORAI FUKUSIMA"
  59. 1570 '
  60. 1650 MOUSE 5:MOUSE 0:MOUSE 1,596,353,1
  61. 1660 X=MOUSE(4,0):Y=MOUSE(5,0)
  62. 1670   IF X> 62 AND X<221 AND Y>130 AND Y<234 THEN 1770
  63. 1680   IF X>243 AND X<402 AND Y>130 AND Y<234 THEN 1850
  64. 1690   IF X>422 AND X<580 AND Y>130 AND Y<234 THEN 1970
  65. 1700   IF X> 62 AND X<221 AND Y>256 AND Y<358 THEN 1810
  66. 1710   IF X>243 AND X<402 AND Y>256 AND Y<358 THEN 1890
  67. 1720   IF X>422 AND X<580 AND Y>256 AND Y<358 THEN 1930
  68. 1730 GOTO 1660
  69. 1740 '
  70. 1750 '** プログラム呼出し **
  71. 1760 '
  72. 1770 X1= 63:Y1=131:GOSUB *FLAME
  73. 1780 MOUSE 5
  74. 1790 CHAIN "A_JAPAN.BAS",,ALL:RUN "A_JAPAN.BAS"
  75. 1800 '
  76. 1810 X1= 62:Y1=256:GOSUB *FLAME
  77. 1820 MOUSE 5
  78. 1830 CHAIN "A_WORLD.BAS",,ALL:RUN "A_WORLD.BAS"
  79. 1840 '
  80. 1850 X1=244:Y1=131:GOSUB *FLAME
  81. 1860 MOUSE 5
  82. 1870 CHAIN "A_EUROPA.BAS",,ALL:RUN "A_EUROPA.BAS"
  83. 1880 '
  84. 1890 X1=243:Y1=256:GOSUB *FLAME
  85. 1900 MOUSE 5
  86. 1910 CHAIN "A_ASIA.BAS",,ALL:RUN "A_ASIA.BAS"
  87. 1920 '
  88. 1930 X1=421:Y1=255:GOSUB *FLAME
  89. 1940 MOUSE 5
  90. 1950 CHAIN "A_AFRICA.BAS",,ALL:RUN "A_AFRICA.BAS"
  91. 1960 '
  92. 1970 X1=422:Y1=130:GOSUB *FLAME
  93. 1980 MOUSE 5
  94. 1990 CHAIN "A_SAMERI.BAS",,ALL:RUN "A_SAMERI.BAS"
  95. 2000 '
  96. 2010 *FLAME
  97. 2020  FOR T=0 TO 16 STEP 2
  98. 2030    LINE (X1+6+T,Y1+4+T)-(X1+161-T,Y1+105-T),PSET,1,B
  99. 2040  NEXT
  100. 2050 RETURN
  101. 2060 '
  102. 2070 *SETTEI '** 音声読み込み ROOTINE **
  103. 2080  DIM NO_S%  (23015):DIM YES_S% (22706)
  104. 2090  LOAD@ "NO_S.SND",  NO_S%
  105. 2100  LOAD@ "YES_S.SND",YES_S%
  106. 2110 RETURN
  107.